Public Function New( _
   ByVal clear As Boolean, _
   ByVal bytes() As Byte _
)

public Password( 
   bool clear,
   byte[] bytes
)

const int count = 1000;
Random rand = new Random();
byte[] bytes = new byte[100];
rand.NextBytes(bytes);
Stopwatch time = new Stopwatch();
time.Start();

for (int i = 0; i < count; i++)
{
    bytes = new byte[rand.Next(450) + 50];
    rand.NextBytes(bytes);
    using (Password pwd = new Password(false, bytes))
    {
        byte[] copy = IOStream.ReadAllBytes(pwd.ReadBytes());
        Assert.AreEqual(bytes, copy);
    }
}
time.Stop();
Trace.WriteLine(time.Elapsed.ToString(), count.ToString() + " Passwords");

Const  count As Integer = 1000
Dim rand As New Random()
Dim bytes As Byte() = New Byte(100) {}
rand.NextBytes(bytes)
Dim time As New Stopwatch()
time.Start()

Dim i As Integer = 0
While i < count
    bytes = New Byte(rand.[Next](450) + 50) {}
    rand.NextBytes(bytes)
    Using pwd As New Password(False, bytes)
        Dim copy As Byte() = IOStream.ReadAllBytes(pwd.ReadBytes())
        Assert.AreEqual(bytes, copy)
    End Using
    System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While
time.[Stop]()
Trace.WriteLine(time.Elapsed.ToString(), count.ToString() + " Passwords")